home *** CD-ROM | disk | FTP | other *** search
/ Loadstar 146 / 146.d81 / b.font studio (.txt) < prev    next >
Commodore BASIC  |  2022-08-26  |  1KB  |  31 lines
  1. 5 dv=peek(186):ifdv<8thendv=8
  2. 10 gosub200
  3. 20 sys57812"f.font studio",dv,0:poke780,.:poke781,.:poke782,40:sys65493
  4. 30 sys57812"fs.sprites",dv,0:poke780,.:poke781,.:poke782,48:sys65493
  5. 40 sys57812"fs.zip1",dv,0:poke780,.:poke781,.:poke782,192:sys65493
  6. 50 sys57812"fs.zip2",dv,0:poke780,.:poke781,.:poke782,64:sys65493
  7. 60 poke56334,peek(56334)and254:poke1,peek(1)and251
  8. 70 sys51328,53248,14336,2048:sys51328,10240,14336,8:sys51328,10456,14552,40
  9. 80 poke1,peek(1)or4:poke56334,peek(56334)or1
  10. 90 print"[144]load"chr$(34)"font studio"chr$(34)","dv
  11. 100 print:print:print:print:print"run"
  12. 110 poke44,88:poke22528,0:poke631,19:poke632,13:poke633,13:poke198,3:end
  13. 200 poke53281,.:poke53280,.:print"[147]"
  14. 210 poke214,7:print
  15. 220 print"[162][162]"tab(37)"[162][162]"
  16. 225 print"[152]  "tab(37)"  "
  17. 230 fori=.to11:print"[152]  [155][165]                                [167][152]  ":next
  18. 235 print"[152]  "tab(37)"  "
  19. 240 print"[162][162]"tab(37)"[162][162]"
  20. 250 poke214,10:print
  21. 260 fori=.to7:reada$:printtab(20-len(a$)/2)"[155]"a$:next
  22. 270 return
  23. 1000 data "[198][207][206][212][160][211][212][213][196][201][207]"
  24. 1010 data "by [193]nthony [210]ose"
  25. 1020 data "(c) 1996 by [202] & [198] [208]ublishing"
  26. 1030 data "[212]his is the copyrighted work"
  27. 1040 data "of [202] & [198] [208]ublishing."
  28. 1050 data "[201]t is not shareware or in"
  29. 1060 data "the public domain."
  30. 1070 data "[212]o subscribe call 1-800-594-3370"
  31.